home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / tools.dxr / Internal_3_textTipObjectScript.ls < prev    next >
Encoding:
Text File  |  1998-06-02  |  505 b   |  20 lines
  1. property ancestor, rolloverSprite, tipSprite
  2. global gRollManager
  3.  
  4. on new me, aRollSprite, aTipSprite
  5.   set the ancestor of me to new(script "rolloverObjectScript", aRollSprite, 1)
  6.   set rolloverSprite to aRollSprite
  7.   set tipSprite to aTipSprite
  8.   set the visible of sprite tipSprite to 0
  9.   mRegisterRollover(gRollManager, me)
  10.   return me
  11. end
  12.  
  13. on mSetRolloverStatus me, trueOrFalse
  14.   put "You are rolling over sprite:" && rolloverSprite
  15. end
  16.  
  17. on mGetInfo me
  18.   put "tipObject Sprite:" && rolloverSprite
  19. end
  20.